Animated Results

Using plotly to create interactive plots.(e.g. https://plotly.com/r/legend/)

d = read.csv("data/animate_eggs.csv")

fig <- plot_ly(d, x = ~mass_diff[1:6], y = ~No[1:6], type = 'scatter', mode = 'lines',
        legendgroup = 'group1', name = 'T1 Eggs - Did Not Fly', line = list(color = 'rgb(205, 12, 24)'))

fig <- fig %>% add_trace(y = ~T1[1:6], legendgroup = 'group1', name = 'T1 Eggs - T1 Flew',
                         line = list(color = 'blue'))
fig <- fig %>% add_trace(y = ~Twice[1:6], legendgroup = 'group1', name = 'T1 Eggs - Flew Twice',
                         line = list(color = 'maroon'))

fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~No[7:20], legendgroup = 'group2', name = 'No Eggs - Did Not Fly',
                         line = list(color = 'rgb(205, 12, 24)', dash = 'dash')) 
fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~T1[7:20], legendgroup = 'group2', name = 'No Eggs - T1 Flew',
                         line = list(color = 'blue', dash = 'dash'))
fig <- fig %>% add_trace(x = ~mass_diff[7:20], y = ~Twice[7:20], legendgroup = 'group2', name = 'No Eggs - Flew Twice',
                         line = list(color = 'maroon', dash = 'dash'))

fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~No[21:65], legendgroup = 'group3', name = '2 Eggs - Did Not Fly',
                         line = list(color = 'rgb(205, 12, 24)', dash = 'dashdot'))
fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~T1[21:65], legendgroup = 'group3', name = '2 Eggs - T1 Flew',
                         line = list(color = 'blue', dash = 'dashdot'))
fig <- fig %>% add_trace(x = ~mass_diff[21:65], y = ~Twice[21:65], legendgroup = 'group3', name = '2 Eggs - Flew Twice',
                         line = list(color = 'maroon', dash='dashdot'))

fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~No[66:93], legendgroup = 'group4', name = 'T2 Eggs - Did Not Fly',
                         line = list(color = 'rgb(205, 12, 24)', dash='dot'))
fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~T1[66:93], legendgroup = 'group4', name = 'T2 Eggs - T1 Flew',
                         line = list(color = 'blue', dash='dot'))
fig <- fig %>% add_trace(x = ~mass_diff[66:93], y = ~Twice[66:93], legendgroup = 'group4', name = 'T2 Eggs - Flew Twice',
                         line = list(color = 'maroon', dash='dot'))

fig <- fig %>% layout(xaxis = list(title="Mass Change from T1 to T2 (g)"), 
                      yaxis = list(title="Flight Case Probability"))

fig